home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RFIX0227.ZIP / INDEF.LIT < prev    next >
Text File  |  1990-02-21  |  14KB  |  392 lines
  1. *[INDEF.LIT]******************************************************************
  2. * Description: Puts READDEF in module with no error checking                 *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB5.BAS                                              *
  5. * Selection Option: DEFERROR = OFF                                           *
  6. * Additional files: OUTDEF1.LIT,OUTDEF2.LIT                                  *
  7. ******************************************************************************
  8. 112 ' $SUBTITLE: 'ReadDef - subroutine to read RBBS-PC.DEF file'
  9. ' $PAGE
  10. '
  11. '  NAME    -- ReadDef
  12. '
  13. '  INPUTS  --     PARAMETER                    MEANING
  14. '                ZConfigFileName$            NAME OF RBBS-PC.DEF FILE
  15. '                ZSubParm = -62              ONLY READ THE .DEF FILE
  16. '
  17. '  OUTPUTS --  ALL THE RBBS-PC.DEF PARAMETERS
  18. '
  19. '  PURPOSE --  TO READ THE PARAMETERS FROM THE RBBS-PC.DEF FILE
  20. '
  21.      SUB ReadDef (ConfigFile$) STATIC
  22. '
  23. ' **** OPEN AND READ RBBS-PC CONFIGURATION DEFINITIONS ***
  24. '
  25. 117 IF ZSubParm <> -62 THEN _
  26.        IF PrevRead$ = ConfigFile$ THEN _
  27.           EXIT SUB _
  28.        ELSE PrevRead$ = ConfigFile$
  29.     CLOSE 2
  30.     ZBulletinSave$ = ZBulletinMenu$
  31.     CALL OpenWork (2,ConfigFile$)
  32.     ZCurDef$ = ConfigFile$
  33.     INPUT #2,ZWasDF$, _
  34.              ZDnldDrives$, _
  35.              ZSysopPswd1$, _
  36.              ZSysopPswd2$, _
  37.              ZSysopFirstName$, _
  38.              ZSysopLastName$, _
  39.              ZRequiredRings, _
  40.              ZStartOfficeHours, _
  41.              ZEndOfficeHours, _
  42.              ZMinsPerSession, _                                      ' DA111103
  43.              ZWasDF, _
  44.              ZWasDF, _
  45.              ZUpldDir$, _
  46.              ZExpertUserDef, _
  47.              ZActiveBulletins, _
  48.              ZPromptBellDef, _
  49.              ZWasDF, _
  50.              ZMenusCanPause, _
  51.              ZMenu$(1), _
  52.              ZMenu$(2), _
  53.              ZMenu$(3), _
  54.              ZMenu$(4), _
  55.              ZMenu$(5), _
  56.              ZMenu$(6), _
  57.              ZConfMenu$, _
  58.              ZWasDF, _
  59.              ZWelcomeInterruptable, _
  60.              ZRemindFileXfers, _
  61.              ZPageLengthDef, _                                       ' KG080801
  62.              ZMaxMsgLinesDef, _
  63.              ZDoorsAvail, _
  64.              ZWasDF$, _
  65.              ZMainMsgFile$, _
  66.              ZMainMsgBackup$
  67.     INPUT #2, WasX$, _
  68.               ZCmntsFile$, _
  69.               ZMainUserFile$, _
  70.               ZWelcomeFile$, _
  71.               ZNewUserFile$, _
  72.               ZMainDirExtension$
  73.     CALL BreakFileName (WasX$,ZWasY$,ZWasDF$,ZWasZ$,ZFalse)
  74.     IF ZWasDF$ <> "" THEN _                                          ' RB060403
  75.        ZCallersFile$ = WasX$
  76.     INPUT #2, ZWasDF$
  77.     IF ZComPort$ <> "COM0" THEN _
  78.        IF NOT ZConfMode THEN _
  79.           ZComPort$ = ZWasDF$
  80.     INPUT #2, ZBulletinsOptional, _
  81.               ZModemInitCmd$, _
  82.               ZRTS$, _
  83.               ZWasDF, _
  84.               ZFG, _
  85.               ZBG, _
  86.               ZBorder
  87.     IF ZConfMode THEN _
  88.        INPUT #2, ZWasDF$, _
  89.                  ZWasDF$ _
  90.     ELSE INPUT #2, ZRBBSBat$ , _
  91.                    ZRCTTYBat$
  92.     INPUT #2,ZOmitMainDir$, _
  93.              ZFirstNamePrompt$, _
  94.              ZHelp$(3), _
  95.              ZHelp$(4), _
  96.              ZHelp$(7), _
  97.              ZHelp$(9), _
  98.              ZBulletinMenu$, _
  99.              ZBulletinPrefix$, _
  100.              ZWasDF$, _
  101.              ZMsgReminder, _
  102.              ZRequireNonASCII, _
  103.              ZAskExtendedDesc, _
  104.              ZMaxNodes, _
  105.              ZNetworkType, _
  106.              ZRecycleToDos, _
  107.              ZWasDF, _
  108.              ZWasDF, _
  109.              ZTrashcanFile$
  110.     INPUT #2,ZMinLogonSec, _
  111.              ZDefaultSecLevel, _                                     ' KG022003
  112.              ZSysopSecLevel, _
  113.              ZFileSecFile$, _
  114.              ZSysopMenuSecLevel, _
  115.              ZConfMailList$, _
  116.              ZMaxViolations, _
  117.              ZOptSec(50), _   ' SECURITY FOR ZSysop COMMANDS 1
  118.              ZOptSec(51), _
  119.              ZOptSec(52), _
  120.              ZOptSec(53), _
  121.              ZOptSec(54), _
  122.              ZOptSec(55), _
  123.              ZOptSec(56), _   ' ZSysop 7
  124.              ZPswdFile$, _
  125.              ZMaxPswdChanges, _
  126.              ZMinSecForTempPswd, _
  127.              ZOverWriteSecLevel, _
  128.              ZDoorsTermType, _
  129.              ZMaxPerDay
  130.     INPUT #2,ZOptSec(1), _   ' SECURITY FOR MAIN MENU COMMANDS 1
  131.              ZOptSec(2), _
  132.              ZOptSec(3), _
  133.              ZOptSec(4), _
  134.              ZOptSec(5), _
  135.              ZOptSec(6), _
  136.              ZOptSec(7), _
  137.              ZOptSec(8), _
  138.              ZOptSec(9), _
  139.              ZOptSec(10), _
  140.              ZOptSec(11), _
  141.              ZOptSec(12), _
  142.              ZOptSec(13), _
  143.              ZOptSec(14), _
  144.              ZOptSec(15), _
  145.              ZOptSec(16), _
  146.              ZOptSec(17), _
  147.              ZOptSec(18), _   ' MAIN COMMAND 18
  148.              ZMinNewCallerBaud, _
  149.              ZWaitBeforeDisconnect
  150.     INPUT #2,ZOptSec(19), _      ' Security for FILE COMMANDS 1
  151.              ZOptSec(20), _
  152.              ZOptSec(21), _
  153.              ZOptSec(22), _
  154.              ZOptSec(23), _
  155.              ZOptSec(24), _
  156.              ZOptSec(25), _
  157.              ZOptSec(26), _      ' FILE COMMAND 8
  158.              ZOptSec(27), _      ' SECURITY FOR UTILITY COMMANDS 1
  159.              ZOptSec(28), _
  160.              ZOptSec(29), _
  161.              ZOptSec(30), _
  162.              ZOptSec(31), _
  163.              ZOptSec(32), _
  164.              ZOptSec(33), _
  165.              ZOptSec(34), _
  166.              ZOptSec(35), _
  167.              ZOptSec(36), _
  168.              ZOptSec(37), _
  169.              ZOptSec(38), _   ' UTIL COMMAND 12
  170.              ZOptSec(46), _   ' SECURITY FOR GLOBAL COMMANDS 1
  171.              ZOptSec(47), _
  172.              ZOptSec(48), _
  173.              ZOptSec(49), _
  174.              ZUpldTimeFactor!, _
  175.              ZComputerType, _
  176.              ZRemindProfile, _
  177.              ZRBBSName$, _
  178.              ZCmdsBetweenRings, _
  179.              ZMNPSupport, _
  180.              ZPagingPtrSupport$                                      ' RK122301
  181.     IF ZConfMode THEN _                                              ' RK122301
  182.          INPUT #2, ZwasDF _                                          ' RK122301
  183.     ELSE INPUT #2, ZModemInitBaud$                                   ' RK122301
  184.              IF ZErrCode > 0 THEN _
  185.                 EXIT SUB
  186. 118 INPUT #2, ZTurnPrinterOff,_    ' Turn printer off each recycle
  187.               ZDirPath$, _    ' Where dir files are stored
  188.               ZMinSecToView, _
  189.               ZLimitSearchToFMS, _
  190.               ZDefaultCatCode$, _
  191.               ZDirCatFile$, _
  192.               ZNewFilesCheck, _
  193.               ZMaxDescLen, _
  194.               ZShowSection, _
  195.               ZCmndsInPrompt, _
  196.               ZNewUserSetsDefaults, _
  197.               ZHelpPath$, _
  198.               ZHelpExtension$, _
  199.               ZMainCmds$, _
  200.               ZFileCmd$, _
  201.               ZUtilCmds$, _
  202.               ZGlobalCmnds$, _
  203.               ZSysopCmds$
  204.     INPUT #2, ZRecycleWait, _
  205.               ZOptSec(39), _       ' SECURITY FOR Library COMMANDS 1
  206.               ZOptSec(40), _
  207.               ZOptSec(41), _
  208.               ZOptSec(42), _
  209.               ZOptSec(43), _
  210.               ZOptSec(44), _
  211.               ZOptSec(45), _       ' Library COMMANDS 7
  212.               ZLibDrive$, _
  213.               ZLibDirPath$, _
  214.               ZLibDirExtension$, _
  215.               ZLibWorkDiskPath$, _
  216.               ZLibMaxDisk, _
  217.               ZLibMaxDir, _
  218.               ZLibMaxSubdir, _
  219.               ZLibSubdirPrefix$, _
  220.               ZLibArcPath$, _
  221.               ZLibArcProgram$, _
  222.               ZLibCmds$
  223. '
  224. ' *****  ESTABLISH COMMUNICATION PORT REGISTERS AND COMMANDS   ***
  225. ' *****     GET DOS SUB-DIRECTORY RBBS-PC OPTIONS              ***
  226. '
  227.     INPUT #2, ZUpldPath$, _              ' Where upl dir goes
  228.               ZMainFMSDir$, _       ' Shared dir in FMS
  229.               ZAnsMenu$, _
  230.               ZReqQues$,_
  231.               ZRememberNewUsers,_
  232.               ZSurviveNoUserRoom,_
  233.               ZPromptHash$,_
  234.               ZStartHash,_
  235.               ZLenHash,_
  236.               ZPromptIndiv$,_
  237.               ZStartIndiv,_
  238.               ZLenIndiv
  239.     INPUT #2, ZBypassMsgs, _
  240.               ZMusic, _
  241.               ZRestrictByDate, _
  242.               ZDaysToWarn, _
  243.               ZDaysInRegPeriod, _
  244.               ZVoiceType, _
  245.               ZRestrictValidCmds, _
  246.               ZNewUserDefaultMode, _
  247.               ZNewUserLineFeeds, _
  248.               ZNewUserNulls, _
  249.               ZFastFileList$, _                                      ' KG102201
  250.               ZFastFileLocator$, _                                   ' KG102201
  251.               ZMsgsCanGrow, _
  252.               ZWrapCallersFile$, _
  253.               ZRedirectIOMethod, _
  254.               ZAutoUpgradeSec, _
  255.               ZHaltOnError, _
  256.               ZNewPublicMsgsSec, _
  257.               ZNewPrivateMsgsSec, _
  258.               SecNeededToChangeMsgs, _
  259.               ZSLCategorizeUplds, _
  260.               ZBaudot, _
  261.               ZHourMinToDropToDos, _
  262.               ZExpiredSec, _
  263.               ZDTRDropDelay, _
  264.               ZAskID, _
  265.               ZMaxRegSec, _
  266.               ZBufferSize, _
  267.               ZMLCom, _
  268.               ZNoDoorProtect, _
  269.               ZDefaultExtension$, _
  270.               ZNewUserDefaultProtocol$, _
  271.               ZNewUserGraphics$, _
  272.               ZNetMail$, _
  273.               ZMasterDirName$, _
  274.               ZProtoDef$, _
  275.               ZUpcatHelp$, _
  276.               ZAllwaysStrewTo$, _
  277.               ZLastNamePrompt$
  278. 119 INPUT #2, ZPersonalDrvPath$, _
  279.               ZPersonalDir$, _
  280.               ZPersonalBegin, _
  281.               ZPersonalLen, _
  282.               ZPersonalProtocol$, _
  283.               ZPersonalConcat , _
  284.               ZPrivateReadSec, _
  285.               ZPublicReadSec, _
  286.               ZSecChangeMsg                                          ' RK122301
  287.     IF ZConfMode THEN _                                              ' RK122301
  288.          INPUT #2, ZwasDF _                                          ' RK122301
  289.     ELSE INPUT #2, ZKeepInitBaud                                     ' RK122301
  290.     INPUT #2, ZMainPUI$                                              ' RK122301
  291.     IF ZConfMode THEN _
  292.        INPUT #2, ZWasDF$,ZWasDF$,ZWasDF$ _
  293.     ELSE INPUT #2, ZDefaultEchoer$, _
  294.                    ZHostEchoOn$, _
  295.                    ZHostEchoOff$
  296.     INPUT #2, ZSwitchBack, _
  297.               ZDefaultLineACK$, _
  298.               ZAltdirExtension$, _
  299.               ZDirPrefix$
  300.     IF ZConfMode THEN _
  301.        INPUT #2, ZWasDF, _
  302.                  ZWasDF, _
  303.                  ZWasDF _
  304.     ELSE INPUT #2, ZWasDF,_
  305.                    ZModemInitWaitTime, _
  306.                    ZModemCmdDelayTime
  307.     INPUT #2, ZTurboRBBS, _
  308.               ZSubDirCount, _
  309.               ZWasDF, _
  310.               ZUpldToSubdir, _
  311.               ZWasDF, _
  312.               ZUpldSubdir$, _
  313.               ZMinOldCallerBaud, _
  314.               ZMaxWorkVar, _
  315.               ZDiskFullGoOffline, _
  316.               ZExtendedLogging
  317.      IF ZConfMode THEN _
  318.         INPUT #2, ZWasDF$, _
  319.                   ZWasDF$, _
  320.                   ZWasDF$, _
  321.                   ZWasDF$ _
  322.      ELSE INPUT #2, ZModemResetCmd$, _
  323.                     ZModemCountRingsCmd$, _
  324.                     ZModemAnswerCmd$, _
  325.                     ZModemGoOffHookCmd$
  326.      INPUT #2,ZDiskForDos$, _
  327.               ZDumbModem, _
  328.               ZCmntsAsMsgs
  329.      IF ZConfMode THEN _
  330.         INPUT #2, ZWasDF, _
  331.                   ZWasDF, _
  332.                   ZWasDF, _
  333.                   ZWasDF, _
  334.                   ZWasDF, _
  335.                   ZWasDF _
  336.      ELSE INPUT #2, ZLSB,_
  337.                     ZMSB,_
  338.                     ZLineCntlReg,_
  339.                     ZModemCntlReg,_
  340.                     ZLineStatusReg,_
  341.                     ZModemStatusReg
  342.      INPUT #2,ZKeepTimeCredits, _
  343.               ZXOnXOff, _
  344.               ZAllowCallerTurbo, _
  345.               ZUseDeviceDriver$, _
  346.               ZPreLog$, _
  347.               ZNewUserQuestionnaire$, _
  348.               ZEpilog$, _
  349.               ZRegProgram$, _
  350.               ZQuesPath$, _
  351.               ZUserLocation$, _
  352.               ZWasDF$, _
  353.               ZWasDF$, _
  354.               ZWasDF$, _
  355.               ZEnforceRatios, _
  356.               ZSizeOfStack, _
  357.               ZSecExemptFromEpilog, _
  358.               ZUseBASICWrites, _
  359.               ZDosANSI, _
  360.               ZEscapeInsecure, _
  361.               ZUseDirOrder, _
  362.               ZAddDirSecurity, _
  363.               ZMaxExtendedLines, _
  364.               ZOrigCommands$
  365.      INPUT #2,ZLogonMailLevel$, _
  366.               ZMacroDrvPath$, _
  367.               ZMacroExtension$, _
  368.               ZEmphasizeOnDef$, _
  369.               ZEmphasizeOffDef$, _
  370.               ZFG1Def$, _
  371.               ZFG2Def$, _
  372.               ZFG3Def$, _
  373.               ZFG4Def$, _
  374.               ZSecVioHelp$
  375.      IF ZConfMode THEN _
  376.         INPUT #2,ZWasDF _
  377.      ELSE INPUT #2,ZFossil
  378.      INPUT #2,ZMaxCarrierWait, _
  379.               ZWasDF, _
  380.               ZSmartTextCode, _
  381.               ZTimeLock, _
  382.               ZWriteBufDef, _
  383.               ZSecKillAny, _
  384.               ZDoorsDef$, _
  385.               ZScreenOutMsg$, _
  386.               ZAutoPageDef$
  387.      IF ZErrCode > 0 THEN _
  388.         EXIT SUB
  389.      ZConfigFileName$ = ConfigFile$
  390.      CALL EditDef
  391.      END SUB
  392.